home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / lern / lern338.d64 / py007 vernier (.txt) < prev    next >
Commodore BASIC  |  1995-08-09  |  4KB  |  132 lines
  1. 25 PRINT"[147]":PRINT"VERNIER SCALE"
  2. 30 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196]
  3. 35 [153]"USED TO ELIMINATE THE GUESSWORK
  4. 40 PRINT"IN ESTIMATING A FRACTION OF A DIVISION
  5. 45 [153]"ON A SCALE.
  6. 50 PRINT"":GOSUB3000
  7. 60 PRINT"IF THIS IS A SCALE, WHAT IS THE READING OF THE POINTER ?
  8. 61 [153]""
  9. 70 [141]2000
  10. 75 [153]"ONLEFT$
  11. 80 PRINT"ENTER YOUR GUESS AND PRESS 'RETURN[146]' KEY
  12. 82 [133]A1
  13. 85 [139]A1[178]1.58[167][153]"NOT A BAD SHOT.....BUT NOT PRECISE":[137]100
  14. 87 [153]"QUITE HOPELESS.......
  15. 88 PRINT"             .......SO PROCEED
  16. 100 [153]"":[141]3000
  17. 110 [153]"HERE IS THE SCALE."
  18. 120 [141]2000
  19. 122 [129]D1[178]1[164]100[169]0.2:[130]D1
  20. 125 [153]"AND HERE IS THE 'VERNIER', CORRECTLY  ZEROED."
  21. 127 [129]D1[178]1[164]100[169]0.5:[130]D1
  22. 128 [153]"ON"
  23. 130 [153]"ONONONONONONONFN(null)CHR$(null)LEFT$(null)THENCLOSEFN(null)CHR$CHR$
  24. 135 PRINT"[165][160][160][160][160][217]     [199]
  25. 137 [153]"FN          CHR$
  26. 138 PRINT"0    5    10
  27. 140 [153]"":[141]3000
  28. 150 [153]"":[141]2000
  29. 153 [153]"ON"
  30. 155 [153]"FN(null)CHR$(null)LEFT$(null)THENCLOSEFN(null)CHR$CHR$
  31. 160 PRINT"[165][160][160][160][160][217]     [199]
  32. 165 [153]"FN          CHR$
  33. 170 PRINT"0    5    10
  34. 175 [153]"NOTICE THAT ON THE VERNIER SCALE TEN
  35. 180 PRINT"DIVISIONS OCCUPY NINE MAIN SCALE ONES.
  36. 185 [153]" EACH MAIN SCALE DIVISION IS 1/10TH
  37. 190 PRINT"GREATER THAN A VERNIER DIVISION.
  38. 195 [141]3000
  39. 1000 [141]4200
  40. 1010 [153]"LOAD":[141]2000
  41. 1020 [141]4390
  42. 1050 [153]"NOW THE READING IS ";Z
  43. 1060 [153]"NOTE -
  44. 1070 PRINT"1. THE ZERO ON THE VERNIER IS BETWEEN
  45. 1080 [153]"";Y1;" AND ";(Y1[170].1);" ON THE MAIN SCALE.
  46. 1090 PRINT"2. THE ";X1;" ON THE VERNIER IS
  47. 1100 [153]"OPPOSITE A LINE ON THE MAIN SCALE.
  48. 1105 PRINT"":GOSUB3000
  49. 1130 PRINT"DO YOU WISH -
  50. 1140 [153]"1. ANOTHER EXAMPLE
  51. 1150 PRINT"2. A WEE TEST OF YOUR SKILL
  52. 1160 [153]"PRESS APPROPRIATE NUMBER
  53. 1165 PRINT"FOLLOWED BY 'RETURN'
  54. 1170 [133]A4
  55. 1180 [145]A4[137]1000,1200
  56. 1200 [153]"LOADA WEE TEST
  57. 1202 PRINT"[196][196][196][196][196][196][196][196][196][196]
  58. 1205 [153]"A SETTING OF THE VERNIER WILL BE
  59. 1210 PRINT"FOR TEN
  60. 1215 [153]"QUESTIONS.  WRITE YOUR ANSWERS DOWN
  61. 1220 PRINT"FOR CORRECTION AT THE END.
  62. 1225 [153]"WHEN YOU ARE READY":[141]3000
  63. 1240 N[178]0:S[178]0
  64. 1250 [129]N[178]1[164]10
  65. 1260 [153]"LOAD":[141]4200
  66. 1262 [153]"LOAD":[141]2000
  67. 1265 [141]4390
  68. 1270 [153]"QUESTION ";N
  69. 1280 Q(N)[178]Z
  70. 1290 T2[178]TI
  71. 1300 [139]TI[171]T2[179](600[173]([186](N)))[167]1300
  72. 1310 [130]N
  73. 1320 [153]"LOADAND NOW FOR YOUR ANSWERS !
  74. 1330 GOSUB3000
  75. 1340 FORN=1TO10
  76. 1350 PRINT"[147]QUESTION ";N
  77. 1360 PRINT"YOUR ANSWER IS "
  78. 1370 PRINT"AND PRESS RETURN[145][145]";
  79. 1380 INPUTR
  80. 1385 IFSTR$(R)=STR$(Q(N))THENPRINT"YOU ARE CORRECT":S=S+1:GOTO1410
  81. 1390 IFINT(R*100)=INT(Q(N)*100)THENPRINT"QUITE RIGHT":S=S+1:GOTO1410
  82. 1400 PRINT"THE CORRECT ANSWER WAS ";Q(N)
  83. 1410 FORA6=1TO200STEP.4:NEXTA6
  84. 1420 NEXTN
  85. 1430 PRINT"[147]YOU SCORED  ";S;" OUT OF TEN
  86. 1440 [145]S[137]1450,1450,1450,1460,1460,1460,1470,1470,1480,1490
  87. 1450 [137]25
  88. 1455 [137]25
  89. 1460 [153]"N.V.G.. YOU SHOULD READ THROUGH AGAIN.":[141]3000
  90. 1465 [137]25
  91. 1470 [153]"NOT BAD ! BUT TRY THE TEST AGAIN.":[141]3000
  92. 1475 [137]1200
  93. 1480 [153]"ALMOST PERFECT, BUT.....":[128]
  94. 1490 [153]"A GENIUS IN OUR MIDST !":[128]
  95. 2000 [153]"0           1            2           3
  96. 2010 PRINT"[165]           [221]            [165]           [221]
  97. 2015 [153]"FNCLOSECLOSECLOSECLOSECLOSECHR$     (null)     (null)      FN     CHR$     (null)
  98. 2020 PRINT"[165][199][221][217][160][165][199][221][217][160][165][199][221][217][160][165][199][221][217][160][165][199][221][217][160][165][199][221][217][160][165][199][221][217][160][165][199][221][217]
  99. 2030 [142]
  100. 3000 [153]"PRESS ANY KEY TO CONTINUE.
  101. 3010 GETA$: IFA$=""THEN3010
  102. 3020 PRINT"[147]":RETURN
  103. 4200 Z=(INT(RND(1)*220))/100
  104. 4210 Y1=(INT(Z*10))/10
  105. 4220 X1=INT((Z-Y1)*100+.05)
  106. 4230 Y=INT(Z/.08)
  107. 4240 X=INT((Z*100)-(Y*8))
  108. 4300 AA=101:AB=84:AC=71:AD=66:AE=93:AF=72
  109. 4310 AG=89:AH=103:AI=32:AJ=101:AJ=84:AL=71
  110. 4315 RETURN
  111. 4350 PRINT"[147]":GOSUB2000
  112. 4390 FORV=1TOX
  113. 4400 AA=AB:AB=AC:AC=AD:AD=AE:AE=AF:AF=AG
  114. 4410 AG=AH:AH=AI:AI=AJ:AJ=AA:AK=AB:AL=AC:AM=AD
  115. 4420 NEXTV
  116. 4450 POKE(32969+Y),AA:POKE(32970+Y),AB
  117. 4460 POKE(32971+Y),AC:POKE(32972+Y),AD
  118. 4470 POKE(32973+Y),AE:POKE(32974+Y),AF
  119. 4480 POKE(32975+Y),AG:POKE(32976+Y),AH
  120. 4490 POKE(32977+Y),AI:POKE(32978+Y),AJ
  121. 4500 POKE(32979+Y),AK:POKE(32980+Y),AL
  122. 4560 POKE(33009+Y),AA:POKE(33049+Y),AA:POKE(33089+Y),48
  123. 4565 IFX=8THENPOKE(33010+Y),AB:POKE(33050+Y),AB
  124. 4575 IFX>=6THENPOKE(32981+Y),AM:POKE(33021+Y),AM:POKE(33061+Y),AM
  125. 4577 IFX>=6THENPOKE(33100+Y),49:POKE(33101+Y),48:GOTO4590
  126. 4580 POKE(33020+Y),AL:POKE(33060+Y),AL:POKE(33099+Y),49:POKE(33100+Y),48
  127. 4586 IFX=2THENPOKE(33014+Y),103
  128. 4590 IFX>5.5THENPOKE(33015+Y),AG:POKE(33095+Y),53
  129. 4600 IFX<=5THENPOKE(33015+Y),AG:POKE(33095+Y),53
  130. 4605 IFX=1ORX=0THENPOKE(33014+Y),89:POKE(33015+Y),32
  131. 4700 RETURN
  132.